home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / CBGRX103.ZIP / contrib / libgrx / test / paltest.c < prev    next >
Text File  |  1993-12-06  |  2KB  |  66 lines
  1. /** 
  2.  ** PALTEST.C 
  3.  **
  4.  **  Copyright (C) 1992, Csaba Biegl
  5.  **    820 Stirrup Dr, Nashville, TN, 37221
  6.  **    csaba@vuse.vanderbilt.edu
  7.  **
  8.  **  This file is distributed under the terms listed in the document
  9.  **  "copying.cb", available from the author at the address above.
  10.  **  A copy of "copying.cb" should accompany this file; if not, a copy
  11.  **  should be available from where this file was obtained.  This file
  12.  **  may not be distributed without a verbatim copy of "copying.cb".
  13.  **  You should also have received a copy of the GNU General Public
  14.  **  License along with this program (it is in the file "copying");
  15.  **  if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16.  **  Cambridge, MA 02139, USA.
  17.  **
  18.  **  This program is distributed in the hope that it will be useful,
  19.  **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20.  **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21.  **  GNU General Public License for more details.
  22.  **/
  23.  
  24.  
  25. #include "test.h"
  26. #include <time.h>
  27.  
  28. TESTFUNC(paltest)
  29. {
  30.     int r = 0,g = 0,b = 0;
  31.     int *cp = &r;
  32.     int ii;
  33.  
  34.     while(--Argc >= 0) {
  35.         switch(Argv[0][0]) {
  36.           case 'r':
  37.           case 'R':
  38.         r = ((Argv[0][1] - '0') & 3) << 6;
  39.         if(cp == &r) cp = &g;
  40.         break;
  41.           case 'g':
  42.           case 'G':
  43.         g = ((Argv[0][1] - '0') & 3) << 6;
  44.         if(cp == &g) cp = &b;
  45.         break;
  46.           case 'b':
  47.           case 'B':
  48.         b = ((Argv[0][1] - '0') & 3) << 6;
  49.         if(cp == &b) cp = &r;
  50.         break;
  51.         }
  52.         Argv++;
  53.     }
  54.     for(ii = 0; ii < 4; ii++) {
  55.         *cp = ii << 6;
  56.         GrFilledBox(50*ii,20,50*ii+49,80,GrAllocColor(r,g,b));
  57.     }
  58.     r = g = b = 0;
  59.     for(ii = 0; ii < 4; ii++) {
  60.         *cp = ii << 6;
  61.         GrFilledBox(50*ii,120,50*ii+49,180,GrAllocColor(r,g,b));
  62.     }
  63.     getkey();
  64. }
  65.  
  66.